home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 January / 1992-01.d64 / improved fre (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  976b  |  32 lines
  1. 0 clr
  2. 10 rem improved fre()
  3. 20 ck=0
  4. 30 for i=828 to 1014
  5. 40 read b:poke i,b:ck=ck+b
  6. 50 next
  7. 60 if ck<>24802 then print"error in data statements":stop
  8. 70 poke 785,60:poke 786,3
  9. 80 print "program installed":end
  10. 90 data 32,161,183,224,0,208,19,165,51
  11. 100 data 133,251,165,52,133,252,165,49
  12. 110 data 133,253,165,50,133,254,76,198
  13. 120 data 3,224,1,208,19,165,45,133,251
  14. 130 data 165,46,133,252,165,43,133,253
  15. 140 data 165,44,133,254,76,198,3,224,2
  16. 150 data 208,19,165,47,133,251,165,48
  17. 160 data 133,252,165,45,133,253,165,46
  18. 170 data 133,254,76,198,3,224,3,208,19
  19. 180 data 165,49,133,251,165,50,133,252
  20. 190 data 165,47,133,253,165,48,133,254
  21. 200 data 76,198,3,224,4,208,19,165,55
  22. 210 data 133,251,165,56,133,252,165,51
  23. 220 data 133,253,165,52,133,254,76,198
  24. 230 data 3,224,5, 208,41,165,55,133,251
  25. 240 data 165,56,133,252,165,43,133,253
  26. 250 data 165,44,133,254,32,228,3,165,4
  27. 260 data 164,3,32,145,179,32,43,188,201
  28. 270 data 255,208,7,169,242,160,3,32,103
  29. 280 data 184,96,162,14,108,0,3,56,165
  30. 290 data 251,229,253,133,3,165,252,229
  31. 300 data 254,133,4,96,144,127,255,0,0
  32.